home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00227_Waterfall Sprite Script.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  1.3 KB  |  51 lines
  1. on exitFrame
  2.   global gbRollW1, gbRollW2, gbRollW3, gbRollW4
  3.   updateStage()
  4.   repeat with x = 20 to 27
  5.     if rollOver(x) then
  6.       set the cursor of sprite x to [561, 562]
  7.     end if
  8.   end repeat
  9.   if rollOver(14) and (gbRollW1 <> 1) then
  10.     set the visible of sprite 25 to 1
  11.     set gbRollW1 to 1
  12.   else
  13.     if not rollOver(14) and (gbRollW1 <> 0) then
  14.       set the visible of sprite 25 to 0
  15.       set gbRollW1 to 0
  16.     end if
  17.   end if
  18.   if rollOver(16) and (gbRollW2 <> 1) then
  19.     set the visible of sprite 26 to 1
  20.     set gbRollW2 to 1
  21.   else
  22.     if not rollOver(16) and (gbRollW2 <> 0) then
  23.       set the visible of sprite 26 to 0
  24.       set gbRollW2 to 0
  25.     end if
  26.   end if
  27.   if rollOver(17) and (gbRollW3 <> 1) then
  28.     set the visible of sprite 27 to 1
  29.     set gbRollW3 to 1
  30.   else
  31.     if not rollOver(17) and (gbRollW3 <> 0) then
  32.       set the visible of sprite 27 to 0
  33.       set gbRollW3 to 0
  34.     end if
  35.   end if
  36.   if rollOver(15) and (gbRollW4 <> 1) then
  37.     repeat with i = 20 to 22
  38.       set the visible of sprite i to 1
  39.     end repeat
  40.     set gbRollW4 to 1
  41.   else
  42.     if not rollOver(15) and (gbRollW4 <> 0) then
  43.       repeat with i = 20 to 22
  44.         set the visible of sprite i to 0
  45.       end repeat
  46.       set gbRollW4 to 0
  47.     end if
  48.   end if
  49.   go(the frame)
  50. end
  51.